DEFINE BUFFER scta FOR sct_det.
DEFINE BUFFER sctb FOR sct_det.

FOR EACH ps_mstr WHERE ps_ps_code = "A" NO-LOCK,
    EACH scta NO-LOCK WHERE scta.sct_part = ps_par AND scta.sct_sim = "standard" AND scta.sct_site = "500",
    EACH pt_mstr NO-LOCK WHERE pt_part = ps_par,
    EACH sctb NO-LOCK WHERE sctb.sct_part = ps_comp AND sctb.sct_sim = "standard" AND sctb.sct_site = "500":

    DISP ps_par pt_status pt_abc scta.sct_lbr_tl ps_comp sctb.sct_lbr_tl ps_ps_code.
END.
